﻿Imports Tom0014
Partial Class pruebas_GridViewInstanciado
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Ejemplo que muestra la creacion de un GridView,
        ' con una DataTable se rellena el GridView y posteriormente
        ' se agrega el control al formulario

        Dim catalogo As New catalogo_generalDataTable ' DataTable del tipo catalogo_generalDataTable
        Dim catRow1, catRow2 As catalogo_generalRow   ' Row(Fila) del tipo catalogo_generalRow

        catRow1 = catalogo.Newcatalogo_generalRow() ' Instancia y inicializas la varible con el objeto pertinente
        catRow1.cattip = "RL"
        catRow1.catcve = "TLR"
        catRow1.catnom = "PRUEBA"
        catRow2 = catalogo.Newcatalogo_generalRow()
        catRow2.cattip = "RL"
        catRow2.catcve = "TL"
        catRow2.catnom = "PRUEBA 3"
        ' Agregas los registros (Row) a la DataTable
        catalogo.Addcatalogo_generalRow(catRow1)
        catalogo.Addcatalogo_generalRow(catRow2)
        catalogo.Addcatalogo_generalRow("RL", "TOM", "RODRIGO")
        catalogo.Addcatalogo_generalRow("RL", "OHL", "OSCAR")
        catalogo.Addcatalogo_generalRow("RL", "APC", "ANTONIO")

        ' Creas la instancia de un GridView
        Dim GridView1 As New GridView
        ' Obligas al gridView a no llenarse de todas las columnas
        GridView1.AutoGenerateColumns = False
        ' Creas un objeto de tipo campo de texto enlazado 
        Dim mybound As New BoundField
        ' Modificas sus propiedades
        mybound.HeaderText = "Nombre"
        mybound.DataField = "catnom"
        ' Agregas el campo texto a las columnas 
        GridView1.Columns.Add(mybound)
        GridView1.DataSource = catalogo
        GridView1.DataBind()
        'GridView1.Columns(0).Visible = False

        ' Agregas el control Gridview al formulario
        Me.form1.Controls.Add(GridView1)

    End Sub
End Class
